home *** CD-ROM | disk | FTP | other *** search
/ JuniorNet 1.1 / juniornet.bin / SETUP / CDcontent / ZI / ZIPL / ZIPL002x1.dcr / Internal_24_UI Rollover Change Member.ls < prev    next >
Encoding:
Text File  |  1999-02-21  |  1.4 KB  |  36 lines
  1. property standardImage, alternateImage, nextCM
  2.  
  3. on mouseEnter me
  4.   set the member of sprite the currentSpriteNum to "Dwn giftbox"
  5. end
  6.  
  7. on mouseLeave me
  8.   set the member of sprite the spriteNum of me to me.standardImage
  9. end
  10.  
  11. on beginSprite me
  12.   me.standardImage = the member of sprite me.spriteNum
  13.   if nextCM = 1 then
  14.     memref = the member of sprite the currentSpriteNum
  15.     castLibNum = memref.castLibNum
  16.     memdefault = member(member(memref).memberNum + 1, castLibNum)
  17.     alternateImage = memdefault
  18.   end if
  19. end
  20.  
  21. on getPropertyDescriptionList
  22.   if the currentSpriteNum = 0 then
  23.     memdefault = 0
  24.   else
  25.     memref = the member of sprite the currentSpriteNum
  26.     castLibNum = memref.castLibNum
  27.     memdefault = member(member(memref).memberNum + 1, castLibNum)
  28.   end if
  29.   p_list = [#nextCM: [#comment: "Use Next Member:", #format: #boolean, #default: 1], #alternateImage: [#comment: "Rollover Cast Member:", #format: #graphic, #default: memdefault]]
  30.   return p_list
  31. end
  32.  
  33. on getBehaviorDescription
  34.   return "Change the sprite's cast member when the mouse rolls over the current sprite." & RETURN & "PARAMETERS:" & RETURN & "ΓÇó Use Next Member - Turn this option on to automatically display the next cast member in the cast when mouse rolls over the sprite." & RETURN & "ΓÇó Rollover Cast Member - Choose a specific cast member to appear when the mouse rolls over the sprite. This setting is ignored if Use Next Member is on."
  35. end
  36.